home *** CD-ROM | disk | FTP | other *** search
/ Private Obsession 3: Sophia / Private Obsession 3: Sophia.iso / files / sshots.dxr / 00125.ls < prev    next >
Encoding:
Text File  |  1995-04-08  |  796 b   |  39 lines
  1. on mouseDown
  2.   global cual3
  3.   if not soundBusy(1) then
  4.     if cual3 = 7 then
  5.       puppetSound("sound1")
  6.     else
  7.       if cual3 = 16 then
  8.         puppetSound("harder1")
  9.       else
  10.         if cual3 = 24 then
  11.           puppetSound("harder2")
  12.         else
  13.           if cual3 = 32 then
  14.             puppetSound("doItome")
  15.           else
  16.             if cual3 = 42 then
  17.               puppetSound("sound4")
  18.             else
  19.               if cual3 = 52 then
  20.                 puppetSound("ooh")
  21.                 set cual3 to 0
  22.               end if
  23.             end if
  24.           end if
  25.         end if
  26.       end if
  27.     end if
  28.     set cual3 to cual3 + 1
  29.     go(the frame + 1)
  30.   else
  31.     if cual3 > 52 then
  32.       set cual3 to 0
  33.     else
  34.       set cual3 to cual3 + 1
  35.     end if
  36.     go(the frame + 1)
  37.   end if
  38. end
  39.